home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / MEDIA / REVIEWS.DXR / Internal_35.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  831 b   |  32 lines
  1. on exitFrame
  2.   set the cursor of sprite 39 to 280
  3.   set the cursor of sprite 40 to 280
  4.   go(the frame)
  5. end
  6.  
  7. on keyDown
  8.   checkKeys()
  9. end
  10.  
  11. on SearchItNow
  12.   global gTB
  13.   puppetSound(1, "pioolb")
  14.   mSetCriteria(gTB, "appname", "Contains", field "searchFld")
  15.   mSelect(gTB)
  16.   set n to mSelectCount(gTB)
  17.   if n <> 0 then
  18.     put n into field "NumberFound"
  19.     put mGetField(gTB, "appname") into field "appname"
  20.     put mGetField(gTB, "Contact") into field "contact"
  21.     put mGetField(gTB, "highs") into field "highs"
  22.     put mGetField(gTB, "lows") into field "lows"
  23.     put mGetField(gTB, "BottomLine") into field "BottomLine"
  24.     put mGetField(gTB, "Rating") into field "Rating"
  25.     put mGetField(gTB, "AlphSortKey") into field "AlphSortKey"
  26.   else
  27.     alert("No matching items were found.")
  28.   end if
  29.   showSelection()
  30.   go("db2")
  31. end
  32.